home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 051-075 / scopedisk69 / jlib20a / jlib.hdr < prev    next >
Text File  |  1995-03-19  |  2KB  |  53 lines
  1.   ON BREAK GOSUB abort:BREAK ON
  2. '  WINDOW 1,,(0,0)-(617,186),31,-1
  3.   WINDOW 1,,(417,11)-(617,59),31,-1
  4.   DEFINT a-z
  5.  
  6. '========== the jlib variable table - MUST NOT BE ALTERED!!!
  7.   jlib&=0
  8.   about&=0:w7&=0:bye&=0:getmem&=0:freemem&=0:zip&=0:copy&=0:anycmd&=0
  9.   at&=0:text&=0:printat&=0:shadow&=0:sxy&=0:scolr&=0
  10.   sbox&=0:dbox&=0:drawmode&=0:rgb&=0:blowup&=0
  11.   title&=0:autoreq&=0:refresh&=0:setptr&=0:clrptr&=0:sgad&=0
  12.   exp1&=0:exp2&=0:exp3&=0:exp4&=0:exp5&=0:exp6&=0:exp7&=0:exp8&=0:exp9&=0
  13.   bload&=0:bsave&=0:openDOS&=0:DOSfile&=0:closeDOS&=0
  14.   checkfile&=0:request&=0:DOScmd&=0
  15.   loadiff&=0:saveIFF&=0:load8svx&=0:play8svx&=0:kill8svx&=0
  16.   loadfont&=0:usefont&=0:killfont&=0:style&=0
  17.  
  18. '========== these are highly recommended - but not required
  19.   nl$=CHR$(0):nl3$=STRING$(3,0)
  20.  
  21. '========== load and set up the jlib file
  22.   OPEN "jlib.ldr" FOR INPUT AS #1
  23.      mlsize=LOF(1)/2-1:DIM ml(mlsize)
  24.      FOR i=0 TO mlsize:ml(i)=CVI(INPUT$(2,1)):NEXT
  25.   CLOSE #1
  26.   ml&=VARPTR(ml(0)):ml& SADD("jlib2"+nl$),VARPTR(jlib&),WINDOW(7):ERASE ml
  27.  
  28. '========== put program code here
  29.  
  30. '========== quit routine
  31. slowquit:
  32. '  autoreq& SADD("SLOWQUIT"+nl3$),SADD("OK"+nl$),SADD("OK"+nl$)
  33.   BEEP:whoa
  34. quit:
  35.   WINDOW CLOSE 2
  36.   SCREEN CLOSE 1
  37.   WINDOW 1,,(417,11)-(617,59),31,-1
  38.   IF bye&>0 THEN CALL bye&
  39.   END
  40. abort:RETURN quit
  41.  
  42. '========== a couple useful subs
  43. SUB whoa STATIC
  44.   SHARED bye&
  45.   WHILE MOUSE(0)<>0:WEND
  46.   WHILE MOUSE(0)=0:SLEEP:WEND
  47. END SUB
  48.  
  49. SUB pause(delay!) STATIC
  50.   delay!=delay!+TIMER
  51.   WHILE TIMER<delay!:WEND
  52. END SUB
  53.